home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / colbar1a / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-09  |  4.5 KB  |  129 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "From Belgium - Europe"
  6.    ClientHeight    =   5100
  7.    ClientLeft      =   1140
  8.    ClientTop       =   1515
  9.    ClientWidth     =   6690
  10.    Height          =   5505
  11.    Icon            =   "Form1.frx":0000
  12.    Left            =   1080
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5100
  17.    ScaleWidth      =   6690
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   1170
  20.    Width           =   6810
  21.    Begin VB.Timer Timer1 
  22.       Interval        =   10
  23.       Left            =   90
  24.       Top             =   4455
  25.    End
  26.    Begin VB.Label Label5 
  27.       AutoSize        =   -1  'True
  28.       BackStyle       =   0  'Transparent
  29.       Caption         =   "stephan.swertvaegher@planetinternet.be"
  30.       ForeColor       =   &H0000C000&
  31.       Height          =   195
  32.       Left            =   1935
  33.       TabIndex        =   4
  34.       Top             =   4500
  35.       Width           =   2925
  36.    End
  37.    Begin VB.Label Label4 
  38.       AutoSize        =   -1  'True
  39.       BackStyle       =   0  'Transparent
  40.       Caption         =   "a negative colorbar"
  41.       ForeColor       =   &H00C0FFFF&
  42.       Height          =   195
  43.       Left            =   2655
  44.       TabIndex        =   3
  45.       Top             =   3330
  46.       Width           =   1365
  47.    End
  48.    Begin VB.Label Label3 
  49.       AutoSize        =   -1  'True
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   "Label3"
  52.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  53.          Name            =   "MS Sans Serif"
  54.          Size            =   8.25
  55.          Charset         =   0
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       ForeColor       =   &H00800000&
  62.       Height          =   195
  63.       Left            =   135
  64.       TabIndex        =   2
  65.       Top             =   2340
  66.       Width           =   585
  67.    End
  68.    Begin VB.Label Label2 
  69.       AutoSize        =   -1  'True
  70.       BackStyle       =   0  'Transparent
  71.       Caption         =   "Label2"
  72.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  73.          Name            =   "MS Sans Serif"
  74.          Size            =   18
  75.          Charset         =   0
  76.          Weight          =   700
  77.          Underline       =   0   'False
  78.          Italic          =   0   'False
  79.          Strikethrough   =   0   'False
  80.       EndProperty
  81.       ForeColor       =   &H000000FF&
  82.       Height          =   435
  83.       Left            =   180
  84.       TabIndex        =   1
  85.       Top             =   1305
  86.       Width           =   1200
  87.    End
  88.    Begin VB.Label Label1 
  89.       AutoSize        =   -1  'True
  90.       BackStyle       =   0  'Transparent
  91.       Caption         =   "This is very colorfull !"
  92.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  93.          Name            =   "MS Sans Serif"
  94.          Size            =   18
  95.          Charset         =   0
  96.          Weight          =   700
  97.          Underline       =   0   'False
  98.          Italic          =   0   'False
  99.          Strikethrough   =   0   'False
  100.       EndProperty
  101.       ForeColor       =   &H0080FFFF&
  102.       Height          =   435
  103.       Left            =   1575
  104.       TabIndex        =   0
  105.       Top             =   135
  106.       Width           =   3735
  107.    End
  108. Attribute VB_Name = "Form1"
  109. Attribute VB_Creatable = False
  110. Attribute VB_Exposed = False
  111. Private Sub Form_Load()
  112. Call ColBar(Form1, 0, 50, 64, 0, 64, 255, 5, 200)
  113. Call ColBar(Form1, 82, 40, 40, 24, 200, 255, 255, 255)
  114. Call ColBar(Form1, 141, 40, 40, 24, 40, 255, 155, 155)
  115. Call ColBar(Form1, 200, 60, 255, 184, 255, 55, 55, 140) 'negative colorbar!
  116. Call ColBar(Form1, 280, 20, 40, 24, 40, 255, 255, 40)
  117. Call ColBar(Form1, 314, 20, 40, 24, 40, 255, 255, 40)
  118. Label2.Caption = "This is how to show you a cool graphic effect with a scrolltext. And it's all done with one module !"
  119. Label3.Caption = "A small piece of coding, nothing special, but a great result !"
  120. Label2.Left = Form1.ScaleWidth
  121. Label3.Left = Form1.ScaleWidth
  122. End Sub
  123. Private Sub Timer1_Timer()
  124. Label2.Left = Label2.Left - 2
  125. If Label2.Left < Label2.Width * -1 Then Label2.Left = Form1.ScaleWidth
  126. Label3.Left = Label3.Left - 1
  127. If Label3.Left < Label3.Width * -1 Then Label3.Left = Form1.ScaleWidth
  128. End Sub
  129.